home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
logs
/
logbook
/
dxccpxad.prg
< prev
next >
Wrap
Text File
|
1990-05-04
|
1KB
|
52 lines
*:*********************************************************************
*:
*: Program: DXCCPXAD.PRG
*:
*: System: PC-HAM Logbook
*: Author: Joe Kasser G3ZCZ
*: Copyright (c) 1990, Joe Kasser
*: Last modified: 12/11/87 1:45
*:
*: Called by: DXCC.PRG
*:
*: Uses: &DXCC
*: : ZCZJOE.DBF
*:
*: Indexes: &DXCC
*:
*: Documented 05/04/90 at 13:50 SNAP! version 3.12f
*:*********************************************************************
* DXCCPXAD USE WHEN ADDING TO OR SORTING A DXCC FILE VERSION 860423
* COPYRIGHT (c) Joe Kasser G3ZCZ 1986
CLEAR
USE &dxcc
STORE ' ' TO npx
DO WHILE npx <> '*'
ACCEPT 'WHAT PREFIX (* to TERMINATE) ? ' TO npx
IF npx = '*'
*DO NOTHING
ELSE
ACCEPT 'WHAT IS THE ALTERNATIVE PREFIX (if any) ? ' TO npx1
ACCEPT 'WHAT IS THE NAME OF THE COUNTRY ? ' TO ncountry
APPEND BLANK
REPLACE px WITH npx
REPLACE px1 WITH npx1
REPLACE Country WITH ncountry
ENDIF
ENDDO
RELEASE npx,npx1,ncountry
? 'SORTING PREFIXES NOW, PLEASE STANDBY'
SET TALK ON
INDEX ON px TO &dxcc
COPY TO zczjoe
SET TALK OFF
USE
STORE TRIM(dxcc)+'.NDX' TO fred
DELETE FILE &fred
STORE TRIM(dxcc)+'.DBF' TO fred
DELETE FILE &fred
RENAME zczjoe.DBF TO &fred
RELEASE fred
RETURN
*: EOF: DXCCPXAD.PRG